COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(declare 
C00006 00003	(meter:report)
C00013 ENDMK
C⊗;
(declare 
 (fasload meter fas))

;(meter:meter baz
;	     (meter-funs ((+ "+'s")(= "='s"))
;			 (defun baz (n)
;				(do ((n n (1- n))
;				     (a 0))
;				    ((= n 0) a)
;				    (foo n)
;				    (setq a (+ a n)))) )
;	     (meter-funs ((+ "+'s")(= "='s"))
;			 (defun foo (n)
;				(do ((n n (1- n))
;				     (a 0))
;				    ((= n 0) a)
;				    (setq a (+ a n))))))

(meter:meter baz
	     (meter-funs ((+ "+'s")(= "='s")(foo "Calls to FOO"))
			 (defun baz (n)
				(do ((n n (1- n))
				     (a 0))
				    ((= n 0) a)
				    (foo n)
				    (setq a (+ a n)))) )
 	     (meter-funs ((+ "+'s")(= "='s"))
			 (defun foo (n)
				(do ((n n (1- n))
				     (a 0))
				    ((= n 0) a)
				    (setq a (+ a n))))))
;(meter:report)
;Statistics
;= <calls> (<percentage>) [runtime (<percentage>)]
;Meter for: BAZ
;='s = 11 (52.38%) [4.0E-3 (44.44%)]
;+'s = 10 (47.62%) [5.0E-3 (55.56%)]
;Total = 21	9.0E-3
;Meter for: FOO
;='s = 65 (54.17%) [0.021 (50.0%)]
;+'s = 55 (45.83%) [0.021 (50.0%)]
;Total = 120	0.042
;T 
;
;(BAZ 10)
;(METER:REPORT)
;Statistics
;= <calls> (<percentage>) [runtime (<percentage>)]
;
;Meter for: BAZ
;1 = 11 (52.38%) [1.0E-3 (50.0%)]
;2 = 10 (47.62%) [1.0E-3 (50.0%)]
;Total = 21	2.0E-3
;
;Meter for: FOO
;1 = 65 (54.17%) [0.023 (47.92%)]
;2 = 55 (45.83%) [0.025 (52.08%)]
;Total = 120	0.048
;T